MacFormat 1995 March/macformat-022.iso/Shareware City/Graphics/Fractal Lab Kit 3.0/Maps/Koch

Text File | 1993-06-07 | 249 b | 7 lines | [TEXT/ALFA]

: koch ( -- ) ( load maps to generate the Koch curve )
    0.333 0.0 0.0 0.333 0.0 0.0 0.25 1 set
    0.167 -0.288 0.288 0.167 0.333 0.0 0.25 2 set
    0.167 0.288 -0.288 0.167 0.5 0.288 0.25 3 set
    .333 0. 0. .333 .667 0. .25 4 set
    4 maps ;